﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if

IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim rs,sql,Runtxt
	Runtxt=qingtian.RunStr
dim id
		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select top 1 id  FROM qingtian_user order by id desc"
		rs.open sql,conn,1,1
		if not (rs.eof and rs.bof) then
                id=rs("id")+1
                else
                id=0
                end if
		rs.Close
		Set rs = Nothing
%>
	<card title="设置注册ID"><p align="left">
<a href='index.asp?sid=<%=sid%>'>管理首页</a>&gt;<a href='config.asp?sid=<%=sid%>'>网站配置</a>&gt;配置<br/>
==<b>设置注册起始ID</b>==<br/>


        输入开始ID:<br/>
        <input format='*N' name="msg<%=Runtxt%>" value="<%=id%>" maxlength="50" type="text"/><br/>
	<anchor>保存设置
    	<go href="config4.asp?Action=login&amp;sid=<%=sid%>" method='post'>
        <postfield name="msg" value="$(msg<%=Runtxt%>:n)"/>
    	</go>
	</anchor><br/><b>使用说明:</b><br/>
1.如果你想设置从1000开始注册,那么在下面的文本框填写999就可以了<br/>
2.此功能只能往上增加,不能递减:例如你一旦设置了从1000开始注册,就不能再设置小于1000的数值了<br/>
3.本功能会自动查询最后一个注册用户,并在下面输入框中自动填入正确的最小默认值,你填写的数字不能小于框中的默认值<br/>
4.此ID字段的数据类型为"自动编号",不保证所做操作绝对正确.
<br/>----------<br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim msg,rs,sql,errss
		msg=TRim(Request.form("msg"))
	if msg="" then msg=0
	if not isnumeric(msg) then msg=0
	msg=clng(msg)
dim id
		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select top 1 id  FROM qingtian_user order by id desc"
		rs.open sql,conn,1,1
		if not (rs.eof and rs.bof) then
                id=rs("id")+1
                else
                id=0
                end if
		rs.Close
		Set rs = Nothing
if msg<id then errss="填写有误,请重新写入...<br/>"
%>
<card id="login" title="设置注册ID" ontimer="index.asp?sid=<%=sid%>"><timer value="20"/><p align="left">
<%
	if errss="" then
   conn.execute "insert into qingtian_user(id) values("&msg&")"

		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select top 1 *  FROM qingtian_user where id="&msg&""
		rs.open sql,conn,1,3
		if not (rs.eof and rs.bof) then
		rs.delete()
		end if
		rs.Close
		Set rs = Nothing
%>
保存设置成功!<br/>
<%
	else
%>
		<%=errss%>
		<a href="config4.asp?sid=<%=sid%>">返回修改</a><br/>
<%
	end if
%>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 
%>
